



use "${pathdata_baseline}/BaselineExperiment.dta", clear


capt ssc install distplot, replace

preserve

	keep if inlist(condition_, "storyshort_pos", "storyshort_neg", "statistic_neg", "statistic_pos") & story_type == "consistent"

	drop statisticcondition
	
	gen statisticcondition = 1
	replace statisticcondition = 2 if inlist(condition_,"statistic_neg", "statistic_pos")


	/* Immediate belief movement */
	distplot diff, over(statisticcondition) scheme(s1color) c(J J) ///
		legend(order(1 "Story" 2 "Statistic")) lc(red*1.5 ebblue*1.5) ///
		xline(0, lwidth(thin) lcolor(black) lp(dash)) ///
		xtitle("Immediate belief impact") ///
		yla(0 "0" 1 "1" 0.2(0.2)0.8, format ("%02.1f") ang(h)) saving("${pathout_baseline}/figures/figureA10a.gph", replace)

	/* Delayed Belief movement */
	distplot diff_recall, over(statisticcondition) scheme(s1color) c(J J) ///
		legend(order(1 "Story" 2 "Statistic")) lc(red*1.5 ebblue*1.5) ///
		xline(0, lwidth(thin) lcolor(black) lp(dash)) ///
		xtitle("Delayed belief impact") ///
		yla(0 "0" 1 "1" 0.2(0.2)0.8, format ("%02.1f") ang(h)) saving("${pathout_baseline}/figures/figureA10b.gph", replace)
		
	gr combine "${pathout_baseline}/figures/figureA10a.gph" "${pathout_baseline}/figures/figureA10b.gph", graphregion(color(white))
	graph export "${pathout_baseline}/figures/figureA10.pdf", as(pdf) replace
